(define-syntax unless
    (syntax-rules ()
        ;; 模式：(_ test body ...) → 匹配 (unless test body1 body2 ...)
        ((_ test body ...)
            (if (not test)         ; 展开为目标代码
                (begin body ...))))) ; 多个 body 用 begin 包裹
(unless #t (display "This will not be printed.")) ; 不打印
(unless #f (display "This will be printed."))    ; 打印
(newline)

(define-syntax displayln
    (syntax-rules ()
        ;; 模式：(_ expr) → 匹配 (displayln expr)
        ((_ expr)
            (begin
                (display expr)  ; 展开为目标代码
                (newline)))))   ; 打印后换行
(displayln "Hello, World!") ; 打印 "Hello, World!" 并换行
(displayln (+ 2 3))        ; 计算并打印结果 5 并换行

